Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  581 1798 (N31E63 L=265)   790     76        0 ( 559/1769- 612/1836) -14.7 E75-E56 N29-N34
      2  482 1644 (N18E57 L=272)  1072    122        2 ( 453/1583- 519/1692) -54.5 E60-E52 N14-N21
      3 1296 1450 (N27W05 L=333)  1314    407        0 (1235/1278-1361/1606) -50.2 E03-W12 N18-N36
      4 1532 1360 (N29W23 L=351)   765    156        0 (1469/1296-1581/1399) -16.7 W17-W27 N26-N30
      5  906 1220 (N03E12 L=317)   818    208        1 ( 816/1167- 968/1295)  58.0 E15-E08 N00-N08
      6 1292 1169 (N10W11 L=340)   617    216        0 (1229/1114-1330/1226)  76.0 W07-W13 N05-N13
      7 1620 1083 (N15W34 L=  3)   980    211        2 (1571/ 995-1666/1168) -41.6 W29-W38 N10-N18
      8 1460  924 (N02W27 L=356)   949    222        1 (1362/ 895-1568/ 970)  12.1 W20-W34 N00-N04
      9  423  816 (S31E34 L=294)   352    120        0 ( 390/ 776- 481/ 843)  36.9 E37-E29 S34-S28
     10 1123  777 (S15W12 L=340)   451     85        1 (1084/ 751-1176/ 810)  31.0 W10-W15 S17-S13
     11 1544  648 (S11W42 L= 11)   434    124        0 (1510/ 605-1565/ 707) -71.6 W39-W43 S13-S07
     12  226  625 (S49E64 L=264)  1167     89        3 ( 182/ 599- 273/ 651)   4.6 E79-E54 S51-S47
     13  825  425 (S46W06 L=334)   380     87        0 ( 800/ 402- 860/ 466) -15.9 W02-W09 S47-S43
     14  929  428 (S42W13 L=342)   522     86        1 ( 886/ 408- 979/ 454)  29.7 W10-W17 S44-S40
  

    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