Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1727 1441 (N19W59 L=260)   629     77        2 (1703/1415-1754/1467) -71.6 W56-W61 N17-N20
      2 1296 1314 (N20W22 L=222)  2345    508        3 (1074/1229-1509/1388) -28.3 W08-W34 N11-N27
      3 1816 1356 (N12W66 L=266)   849    259        0 (1769/1335-1871/1384) -14.9 W60-W76 N10-N14
      4  731 1189 (N20E17 L=184)   327    124        0 ( 686/1156- 786/1206)   0.0 E19-E12 N18-N21
      5 1154 1131 (N11W09 L=210)   215     67        0 (1122/1099-1182/1158) -53.1 W07-W10 N08-N12
      6  247 1095 (N18E55 L=145)   898    131        1 ( 216/1049- 296/1139)  45.0 E59-E50 N15-N20
      7 1617  878 (S12W37 L=237)  1524    386        3 (1512/ 768-1714/1036)  35.2 W28-W46 S17-S03
      8 1550  988 (S04W33 L=233)   382    109        0 (1518/ 942-1571/1034) -90.0 W30-W34 S06-N00
      9  614 1001 (N10E26 L=174)   209     56        0 ( 591/ 974- 635/1032)  45.0 E27-E24 N08-N11
     10 1740  869 (S15W47 L=247)  1578    347        3 (1625/ 778-1813/ 985)  30.5 W36-W54 S19-S08
     11  605  917 (N05E28 L=173)   238    102        0 ( 556/ 895- 642/ 950)  15.9 E31-E24 N03-N06
     12  620  783 (S04E29 L=172)   882    189        1 ( 535/ 752- 693/ 827) -10.3 E34-E23 S05-S01
     13 1352  769 (S14W17 L=217)   228     43        0 (1339/ 737-1368/ 799)  76.0 W15-W18 S16-S12
     14  714  643 (S13E25 L=175)   872    204        2 ( 685/ 546- 743/ 734)  63.4 E28-E22 S19-S07
     15 1534  583 (S30W29 L=230)   453     98        0 (1491/ 547-1568/ 636)  45.0 W26-W32 S31-S26
  

    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