Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  490 1692 (N49E57 L=176)  1070    112        2 ( 451/1641- 518/1730) -15.9 E70-E49 N44-N51
      2  816 1653 (N46E18 L=216)   263     44        1 ( 792/1632- 839/1672) -31.0 E20-E15 N44-N47
      3  911 1538 (N37E08 L=226)   413     91        1 ( 872/1510- 956/1564) -15.9 E11-E04 N35-N39
      4 1054 1438 (N30W03 L=236)   358    140        0 (1004/1415-1115/1456) -18.4 W00-W06 N28-N31
      5  454 1136 (N10E38 L=196)   250     51        1 ( 434/1111- 479/1155)  33.7 E39-E36 N09-N11
      6 1792 1120 (N07W56 L=290)   612    106        0 (1749/1094-1831/1142)  -6.3 W51-W60 N05-N08
      7  182 1092 (N07E65 L=169)   538     87        3 ( 144/1067- 223/1113)  -4.8 E71-E59 N05-N07
      8  344 1074 (N06E47 L=187)   275     77        1 ( 306/1062- 378/1092)  -8.1 E50-E43 N05-N07
      9 1839  986 (S01W60 L=294)   552     62        2 (1805/ 971-1870/1006)   0.0 W56-W64 S02-N00
     10  298  872 (S06E52 L=182)  1630    259        3 ( 235/ 779- 388/ 976) -45.0 E57-E44 S11-N00
     11  722  737 (S14E20 L=214)   399    134        1 ( 662/ 702- 766/ 783)  32.0 E24-E16 S16-S10
     12  241  655 (S21E65 L=169)  5632    336        8 ( 141/ 532- 317/ 764) -41.2 E79-E55 S29-S14
     13  325  715 (S16E52 L=182)   371     95        3 ( 289/ 686- 369/ 738)  -8.1 E55-E47 S18-S14
     14  389  637 (S21E47 L=186)  1016    205        0 ( 355/ 556- 450/ 718)  40.2 E53-E39 S26-S15
     15 1065  637 (S21W02 L=236)   660    255        1 ( 962/ 562-1109/ 703)  48.4 E04-W05 S25-S16
     16  850  584 (S24E12 L=222)   853    215        1 ( 803/ 503- 928/ 656)  45.0 E16-E06 S29-S19
     17 1279  409 (S38W19 L=253)   305     73        0 (1241/ 395-1322/ 425)  -9.5 W16-W22 S39-S36
     18  727  358 (S42E26 L=208)  1896    258        3 ( 631/ 317- 841/ 415)  10.8 E36-E15 S45-S36
     19  693  213 (S57E43 L=191)   776     64        2 ( 670/ 190- 724/ 242) -78.7 E48-E37 S59-S53
     20 1168  178 (S62W17 L=250)   480     43        2 (1150/ 157-1191/ 202) -26.6 W13-W21 S64-S58
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y