Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1167 1533 (N34W23 L=125)  2189    498        4 (1091/1372-1279/1717)  70.2 W17-W33 N21-N46
      2 1339 1679 (N38W44 L=146)   457     84        1 (1307/1643-1376/1702)   0.0 W40-W48 N35-N38
      3 1547 1660 (N30W60 L=161)   764     85        2 (1502/1634-1593/1682)  -4.4 W53-W66 N28-N31
      4 1704 1555 (N19W67 L=168)   673     97        2 (1655/1528-1751/1579) -26.6 W62-W72 N16-N21
      5 1746 1460 (N13W64 L=165)   818     87        1 (1716/1408-1770/1494)  80.5 W61-W67 N09-N15
      6  974 1303 (N24W03 L=105)   248     50        1 ( 948/1280-1005/1324) -56.3 W01-W04 N22-N26
      7  617 1227 (N27E22 L= 80)   709    264        0 ( 529/1132- 703/1299) -54.5 E27-E17 N19-N33
      8  920 1091 (N13E05 L= 97)   260    119        0 ( 903/1040- 954/1146)  51.3 E06-E01 N10-N15
      9  255 1109 (N26E54 L= 47)   376     65        1 ( 241/1067- 268/1142) -63.4 E55-E52 N23-N27
     10  135 1069 (N24E72 L= 30)   851    124        3 ( 120/1029- 152/1141) -60.3 E74-E68 N21-N28
     11 1141 1084 (N08W08 L=110)   419    151        1 (1086/1065-1217/1116) -20.6 W04-W12 N05-N10
     12 1344 1009 (S01W18 L=120)   235     83        0 (1300/ 992-1384/1033)   0.0 W15-W20 S01-N00
     13  412  931 (N13E41 L= 61)   824    272        1 ( 349/ 860- 461/ 996)  69.4 E46-E37 N08-N16
     14 1901  872 (S25W64 L=166)  1615    175        1 (1853/ 789-1942/ 945)  30.3 W56-W72 S29-S21
     15  176  856 (N11E67 L= 35)  1377    176        0 ( 134/ 775- 211/ 928) -52.1 E72-E62 N06-N15
     16 1554  893 (S13W29 L=131)   355     66        1 (1525/ 867-1590/ 912) -14.0 W27-W31 S13-S10
     17  902  827 (S02E11 L= 91)   293     87        1 ( 884/ 775- 922/ 865)  76.0 E12-E09 S04-N00
     18 1360  797 (S13W15 L=117)   418    120        2 (1337/ 756-1384/ 856)  80.5 W12-W16 S15-S09
     19 1709  819 (S21W40 L=142)   473    179        0 (1647/ 780-1739/ 850)  14.0 W34-W43 S24-S19
     20 1698  734 (S27W39 L=141)   409     77        0 (1674/ 701-1723/ 771)  38.7 W36-W41 S28-S24
     21 1431  747 (S18W19 L=120)   279     31        1 (1404/ 722-1452/ 767) -45.0 W16-W19 S19-S16
     22 1523  569 (S33W23 L=125)   481     37        1 (1491/ 547-1553/ 592) -21.8 W20-W25 S34-S30
     23  694  508 (S17E33 L= 69)   847    178        2 ( 631/ 451- 751/ 587)  30.3 E39-E27 S19-S12
     24 1398  444 (S38W12 L=113)  1211    164        4 (1344/ 381-1441/ 527)  45.0 W06-W15 S42-S32
     25  561  459 (S18E44 L= 57)   585     98        0 ( 520/ 436- 601/ 488) -45.0 E46-E41 S20-S15
     26 1120  340 (S38E11 L= 90)  3349    536        6 ( 906/ 229-1352/ 436)   5.9 E32-W07 S42-S34
     27 1284  170 (S63E07 L= 95)   600     85        1 (1242/ 154-1326/ 190)  -5.2 E11-W00 S65-S60
  

    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