Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1176 1799 (N47W46 L= 88)   567    100        1 (1154/1767-1209/1849)  22.6 W42-W54 N43-N49
      2  757 1752 (N61W09 L= 50)   385     41        1 ( 735/1724- 773/1778)  63.4 W06-W12 N57-N63
      3  579 1681 (N62E16 L= 26)   979    154        2 ( 522/1635- 650/1716)   3.2 E23-E05 N59-N64
      4  871 1563 (N42W08 L= 49)   779    210        0 ( 808/1491- 961/1625) -70.3 W04-W10 N34-N48
      5 1312 1522 (N25W34 L= 75)   638    188        2 (1222/1492-1396/1538) -37.9 W28-W38 N21-N28
      6  960 1325 (N25W05 L= 46)   928    250        4 ( 870/1245-1027/1381) -61.4 W00-W07 N18-N30
      7 1143 1268 (N16W13 L= 55)   273     73        1 (1117/1229-1159/1301)  63.4 W12-W15 N14-N18
      8  800 1172 (N20E09 L= 32)   434    206        0 ( 706/1144- 891/1196) -35.0 E14-E04 N16-N24
      9 1772  988 (S18W47 L= 88)  1672    399        4 (1680/ 828-1830/1107)  40.9 W36-W55 S24-S11
     10 1887  950 (S25W60 L=102)  1312    184        1 (1827/ 896-1933/1039)   9.0 W51-W70 S27-S21
     11 1251  617 (S23W02 L= 43)   270     85        0 (1226/ 579-1282/ 639)  36.9 W00-W04 S25-S22
     12 1082  449 (S29E14 L= 28)  1006    330        1 ( 950/ 377-1166/ 556)  14.0 E24-E04 S31-S24
     13 1194  359 (S39E10 L= 31)   437     68        1 (1171/ 323-1219/ 384)  31.0 E12-E07 S41-S37
     14 1036  243 (S43E28 L= 13)  1004    166        1 ( 971/ 195-1104/ 293)  13.2 E37-E20 S45-S40
     15  919  184 (S44E43 L=359)   441     53        1 ( 894/ 165- 947/ 205) -45.0 E45-E39 S46-S42
  

    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