Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  792 1789 (N43E29 L=111)   328     56        0 ( 769/1764- 814/1813) -26.6 E32-E26 N41-N45
      2  893 1587 (N28E15 L=126)   329    143        0 ( 877/1538- 926/1656) -63.4 E16-E11 N25-N33
      3  495 1377 (N12E37 L=103)   291    123        0 ( 457/1332- 538/1432)  60.3 E39-E35 N08-N15
      4 1871 1349 (N25W64 L=205)   634     73        0 (1836/1323-1904/1369)  -5.7 W58-W69 N24-N27
      5 1335 1191 (N08W17 L=158)  1240    419        2 (1183/1045-1426/1326) -41.2 W06-W23 N00-N14
      6 1835 1240 (N17W56 L=197)  1682    177        5 (1800/1162-1872/1315)  51.3 W51-W61 N12-N22
      7 1904 1209 (N17W65 L=206)   522     85        2 (1882/1156-1918/1247)  63.4 W61-W67 N13-N19
      8 1866 1135 (N12W59 L=199)  1016     93        3 (1837/1105-1907/1178) -15.9 W55-W64 N09-N13
      9  226 1138 (S04E56 L= 84)   311     47        2 ( 204/1120- 249/1155)  26.6 E58-E54 S04-S02
     10  798 1104 (S03E14 L=127)   465    153        0 ( 739/1049- 860/1136) -26.6 E17-E09 S05-N00
     11  217  929 (S16E57 L= 83)  1972    447        5 ( 170/ 832- 276/1057) -77.0 E62-E50 S21-S08
     12 1180  968 (S07W10 L=150)   715    370        3 (1043/ 907-1320/1021)  21.8 W02-W17 S11-S03
     13 1675  901 (S05W43 L=184)   413     66        3 (1642/ 878-1710/ 932) -11.3 W40-W46 S06-S03
     14 1609  847 (S09W39 L=180)   290     24        0 (1592/ 821-1623/ 873)  71.6 W37-W40 S10-S07
     15 1242  746 (S20W16 L=157)  1158    470        2 (1070/ 675-1447/ 814)  16.9 W05-W28 S24-S13
     16 1579  740 (S16W39 L=180)   590    189        1 (1496/ 707-1631/ 784)  29.1 W33-W42 S18-S12
     17  494  629 (S33E35 L=106)   376     93        3 ( 447/ 613- 540/ 663)   6.3 E39-E30 S34-S31
     18  251  554 (S39E67 L= 73)  1164    102        1 ( 206/ 530- 285/ 591)   8.5 E79-E59 S40-S36
     19 1754  523 (S26W66 L=206)   623     51        3 (1735/ 486-1775/ 550) -23.2 W61-W70 S27-S23
     20 1548  430 (S35W50 L=191)  1055    141        2 (1492/ 407-1626/ 463)  13.0 W43-W58 S37-S33
     21 1513  327 (S43W55 L=196)   974    139        1 (1482/ 278-1559/ 385) -28.3 W49-W65 S45-S38
  

    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