Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  647 1478 (N31E29 L= 37)   520    137        1 ( 576/1460- 707/1492)  11.3 E34-E24 N29-N32
      2 1720 1336 (N23W53 L=119)   359     80        0 (1683/1318-1764/1350) -14.0 W49-W57 N21-N23
      3 1332 1321 (N22W20 L= 86)   261    101        0 (1288/1288-1374/1338) -21.8 W17-W22 N20-N23
      4  904 1254 (N17E08 L= 58)   467    119        1 ( 844/1230- 958/1271)  15.9 E12-E04 N15-N18
      5 1658 1209 (N15W44 L=110)   367    100        0 (1608/1187-1691/1233)   0.0 W39-W47 N13-N16
      6  256  809 (S13E57 L=  9)  1027    174        1 ( 231/ 718- 283/ 881)  74.7 E60-E54 S19-S08
      7  142  825 (S13E75 L=351)  1187    115        1 ( 126/ 773- 157/ 873)  45.0 E81-E71 S17-S10
      8 1784  736 (S15W58 L=125)  1332    222        2 (1746/ 649-1841/ 821)  65.6 W54-W63 S20-S09
      9  560  625 (S24E32 L= 34)   577    102        0 ( 516/ 580- 598/ 664) -45.0 E34-E29 S26-S21
     10 1244  495 (S31W17 L= 83)   526     93        1 (1219/ 450-1264/ 548) -81.9 W15-W18 S34-S27
     11 1271  367 (S41W22 L= 89)   404     42        0 (1248/ 342-1297/ 395)  68.2 W20-W24 S43-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