Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1072 1853 (N58W44 L= 93)   570     73        2 (1030/1830-1113/1878)   0.0 W37-W51 N56-N59
      2 1445 1703 (N35W55 L=104)   399     67        0 (1412/1690-1481/1718) -15.9 W51-W58 N33-N36
      3 1590 1590 (N24W57 L=106)   673     92        0 (1547/1555-1628/1618) -63.4 W54-W59 N20-N26
      4 1271 1557 (N32W31 L= 80)   403     52        2 (1245/1529-1298/1584) -63.4 W29-W33 N29-N33
      5 1718 1392 (N10W56 L=105)  2943    493        7 (1603/1325-1857/1499) -40.1 W46-W71 N01-N17
      6 1414 1456 (N22W36 L= 85)   249     28        1 (1395/1438-1434/1476) -90.0 W34-W37 N20-N23
      7  540 1353 (N37E26 L= 23)   409     80        1 ( 503/1321- 570/1384) -45.0 E29-E23 N34-N39
      8  781 1283 (N27E09 L= 40)   241     58        1 ( 754/1263- 808/1302)  14.0 E11-E07 N26-N28
      9 1659 1198 (N01W44 L= 92)   719    170        0 (1635/1112-1679/1285)  71.6 W41-W45 S03-N06
     10 1151 1217 (N15W12 L= 61)   516    220        1 (1075/1155-1203/1281)  21.8 W06-W16 N11-N17
     11  484 1082 (N21E33 L= 16)   380    121        0 ( 433/1055- 539/1120) -35.5 E36-E29 N18-N24
     12  767 1053 (N14E14 L= 35)   463    140        0 ( 718/1033- 833/1086) -45.0 E17-E10 N11-N17
     13 1879  989 (S18W60 L=109)  1374    156        3 (1844/ 915-1917/1054) -59.0 W56-W66 S23-S13
     14 1806 1003 (S14W52 L=101)   466    115        2 (1777/ 959-1834/1051)  38.7 W47-W54 S15-S11
     15  693  940 (N09E21 L= 28)   352     64        1 ( 672/ 903- 712/ 978)  53.1 E22-E19 N07-N11
     16 1852  905 (S22W56 L=105)   518     60        0 (1835/ 874-1874/ 940) -59.0 W53-W58 S24-S19
     17 1485  801 (S17W23 L= 72)   938    270        0 (1390/ 714-1552/ 910)  29.7 W14-W28 S19-S11
     18  364  798 (N07E48 L=  1)   709    158        0 ( 337/ 724- 384/ 879)  77.5 E49-E45 N02-N11
     19 1314  717 (S17W10 L= 59)   459    132        0 (1271/ 691-1373/ 765) -45.0 W08-W13 S19-S13
     20 1611  528 (S39W30 L= 79)  4916    632        3 (1355/ 364-1853/ 682)   3.1 W06-W61 S45-S33
     21  705  595 (S11E29 L= 20)   350     73        1 ( 665/ 578- 753/ 617) -21.8 E31-E26 S13-S09
     22  332  458 (S14E68 L=341)  1335    156        0 ( 308/ 407- 367/ 538)  63.4 E72-E63 S18-S08
  

    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