Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  732 1656 (N32E37 L=196)   737    126        1 ( 677/1625- 775/1682)  23.2 E40-E32 N28-N34
      2 1060 1548 (N32E09 L=224)  1068    190        2 ( 997/1480-1128/1613) -30.3 E15-E03 N28-N35
      3  715 1488 (N21E30 L=203)   372    120        1 ( 666/1471- 781/1518)  29.7 E33-E26 N18-N23
      4  953 1270 (N12E09 L=224)   301    107        0 ( 908/1252-1006/1295)   0.0 E12-E05 N10-N12
      5 1614 1118 (N16W36 L=269)   649     93        2 (1590/1078-1640/1160) -68.2 W34-W38 N13-N18
      6  191 1060 (S14E63 L=170)   930    123        2 ( 158/1005- 227/1106)  80.5 E67-E58 S17-S11
      7 1715 1056 (N14W46 L=279)   337     96        2 (1691/ 995-1737/1087) -59.0 W43-W47 N10-N16
      8 1630  938 (N05W40 L=274)   295     89        0 (1608/ 895-1662/ 958)  59.0 W38-W42 N02-N07
      9  896  783 (S18E03 L=230)   294     66        1 ( 869/ 757- 929/ 812) -26.6 E04-W00 S19-S16
     10 1015  762 (S17W05 L=238)   235     49        0 ( 989/ 740-1038/ 794) -33.7 W02-W06 S18-S15
     11 1446  718 (S11W33 L=266)   781    201        1 (1362/ 689-1531/ 753)  18.4 W27-W39 S14-S08
     12  787  657 (S28E08 L=225)   424    227        0 ( 686/ 614- 880/ 687)  36.9 E14-E02 S33-S24
     13 1445  569 (S20W38 L=271)   688    207        3 (1395/ 515-1523/ 605)  58.0 W34-W42 S24-S16
     14  691  332 (S56E12 L=222)   414     73        0 ( 647/ 315- 723/ 351)  12.5 E16-E07 S58-S53
  

    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