Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1255 1781 (N56E02 L= 35)  1662    227        4 (1134/1744-1339/1811)  30.1 E13-W06 N50-N62
      2  579 1484 (N17E40 L=358)   304     90        0 ( 547/1439- 602/1506) -26.6 E42-E36 N14-N18
      3 1198 1388 (N24W03 L= 40)   393    189        0 (1120/1356-1275/1420)   0.0 E02-W08 N22-N25
      4 1827 1078 (N18W57 L= 94)  3205    490        3 (1763/ 947-1921/1220) -51.3 W49-W72 N11-N26
      5 1735 1076 (N16W47 L= 84)   768    153        1 (1703/1002-1764/1136) -58.0 W43-W50 N11-N19
      6 1869 1096 (N20W63 L=100)   649     61        1 (1841/1068-1898/1119)  -6.3 W58-W67 N18-N21
      7  142 1054 (S16E71 L=326)   662     87        2 ( 127/1009- 160/1097) -51.3 E74-E67 S18-S13
      8  341 1055 (S13E46 L=351)   364    109        0 ( 309/1006- 382/1095)  54.5 E48-E42 S16-S09
      9  940  756 (S19W00 L= 38)   452    147        0 ( 874/ 734- 993/ 788)  26.6 E03-W03 S20-S16
     10  199  739 (S35E65 L=332)   667     84        1 ( 178/ 708- 223/ 770) -38.7 E68-E61 S37-S33
     11 1397  548 (S22W36 L= 73)   605    159        0 (1342/ 509-1454/ 614)  71.6 W32-W37 S25-S16
     12 1143  471 (S33W21 L= 59)   246     46        1 (1121/ 445-1160/ 498) -36.9 W19-W23 S34-S30
     13 1527  375 (S30W58 L= 95)  2220    342        2 (1368/ 316-1651/ 439)  37.9 W47-W68 S37-S23
  

    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