Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1349 1763 (N37W50 L=138)   351     51        1 (1323/1749-1385/1778) -56.3 W47-W52 N35-N38
      2 1489 1662 (N27W52 L=140)   676     87        1 (1442/1632-1533/1686)   0.0 W46-W57 N25-N28
      3 1647 1548 (N16W57 L=145)  1032    142        3 (1619/1496-1679/1607)  45.0 W53-W61 N13-N19
      4 1262 1550 (N27W30 L=117)   516    122        1 (1215/1522-1321/1576) -51.3 W26-W32 N23-N29
      5 1157 1335 (N18W15 L=103)   790    280        2 (1053/1289-1275/1410) -50.2 W11-W21 N12-N24
      6  328 1390 (N42E44 L= 43)   331     70        0 ( 297/1374- 362/1405) -14.0 E47-E39 N40-N43
      7  794 1323 (N26E06 L= 81)  1774    598        3 ( 553/1216-1041/1379) -28.9 E23-W06 N14-N32
      8 1885 1321 (S03W71 L=158)   999    117        0 (1859/1270-1915/1376) -63.4 W67-W73 S06-N00
      9  669 1173 (N20E17 L= 70)   229     84        0 ( 627/1164- 722/1184) -18.4 E19-E13 N18-N21
     10 1884 1086 (S15W61 L=148)  1066    113        4 (1851/1032-1910/1150)  45.0 W56-W65 S17-S11
     11 1431 1054 (S04W24 L=111)   287     94        0 (1416/1007-1448/1099)  53.1 W22-W25 S06-S02
     12 1752  939 (S20W44 L=132)  1585    297        3 (1636/ 832-1861/ 996)   7.4 W33-W56 S22-S17
     13 1849  840 (S29W54 L=142)  1666    306        2 (1718/ 752-1961/ 903)   0.0 W39-W75 S30-S26
     14 1361  875 (S13W15 L=103)   216     47        1 (1333/ 853-1381/ 900)  18.4 W13-W16 S13-S11
     15 1005  767 (S10E07 L= 80)   316     77        0 ( 976/ 736-1029/ 804)  36.9 E09-E05 S11-S08
     16  610  552 (S13E37 L= 50)  4333    853        7 ( 382/ 370- 894/ 773) -52.8 E46-E24 S28-N03
     17  279  577 (S05E64 L= 23)  3618    511        6 ( 136/ 436- 446/ 740) -43.6 E80-E54 S16-N05
     18  470  595 (S08E45 L= 42)   716    139        3 ( 439/ 545- 504/ 661)  82.9 E49-E41 S11-S03
     19  832  557 (S18E23 L= 64)   410    124        0 ( 767/ 541- 888/ 582) -15.9 E27-E19 S19-S16
     20  597  274 (S31E56 L= 31)  4243    248        8 ( 533/ 152- 666/ 377)  32.3 E84-E49 S41-S22
     21 1523  287 (S62W22 L=109)   470     49        0 (1504/ 263-1541/ 320) -58.0 W18-W26 S65-S57
  

    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