Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1073 1858 (N55W48 L=272)   780     82        0 (1043/1818-1106/1890)   7.1 W40-W56 N53-N56
      2 1701 1580 (N15W69 L=292)  2245    217        3 (1609/1507-1764/1638) -67.4 W63-W76 N09-N21
      3  897 1461 (N34W05 L=229)  1456    418        4 ( 718/1418-1117/1493) -30.3 E07-W17 N25-N39
      4 1632 1412 (N09W50 L=274)   562    138        1 (1595/1366-1658/1476)  29.1 W45-W54 N07-N12
      5 1214 1239 (N13W17 L=240)  1198    478        3 ( 983/1148-1356/1299) -38.3 W03-W22 N03-N19
      6  740 1172 (N22E13 L=211)   747    208        0 ( 647/1138- 842/1202) -17.1 E19-E06 N19-N23
      7  266 1136 (N31E52 L=172)   456     90        1 ( 250/1096- 284/1178) -78.7 E53-E49 N28-N33
      8  744 1049 (N15E15 L=208)   531    248        0 ( 661/ 994- 840/1078) -10.3 E21-E10 N10-N16
      9  242  892 (N17E57 L=166)   929    215        0 ( 161/ 840- 331/ 938) -21.3 E67-E49 N12-N20
     10 1562  811 (S21W26 L=250)   316     93        0 (1530/ 771-1596/ 848)  26.6 W23-W29 S22-S19
     11 1746  587 (S44W43 L=267)  2824    313        4 (1639/ 506-1833/ 722)  20.0 W29-W53 S47-S37
     12  753  433 (S21E34 L=189)   622    166        2 ( 732/ 348- 770/ 500)  45.0 E39-E30 S26-S16
     13 1464  391 (S48W11 L=235)   719    151        0 (1408/ 348-1532/ 422)   8.7 W05-W18 S49-S45
     14 1005  238 (S43E31 L=193)   412     45        0 ( 975/ 221-1032/ 259)   8.1 E34-E27 S44-S41
     15 1167  213 (S51E22 L=202)  1369    201        1 (1075/ 177-1267/ 241)  -9.0 E31-E12 S54-S48
  

    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