Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  580 1796 (N31E63 L=266)   658     57        1 ( 556/1769- 609/1825)  -8.1 E72-E57 N29-N33
      2  481 1643 (N18E57 L=272)  1520    186        2 ( 439/1544- 535/1714) -56.3 E60-E51 N11-N23
      3 1290 1451 (N27W04 L=333)  1252    381        0 (1244/1290-1354/1593) -50.9 E02-W12 N19-N35
      4 1524 1363 (N29W22 L=351)   733    160        0 (1462/1295-1572/1403) -24.0 W17-W26 N25-N30
      5  901 1227 (N04E12 L=317)   844    193        1 ( 813/1173- 961/1302)  60.9 E15-E09 N00-N09
      6 1282 1168 (N10W11 L=340)   613    228        0 (1219/1116-1323/1231)  60.3 W07-W13 N06-N13
      7 1611 1094 (N15W33 L=  2)   899    210        2 (1564/1008-1660/1172) -48.8 W28-W37 N10-N18
      8 1443  930 (N01W26 L=355)   907    225        1 (1347/ 900-1547/ 977)   8.1 W19-W33 N00-N03
      9  421  822 (S31E35 L=294)   410    136        0 ( 383/ 774- 481/ 848)  36.9 E37-E29 S34-S28
     10 1112  779 (S16W11 L=340)   498    105        1 (1071/ 753-1170/ 808)  38.7 W09-W15 S18-S13
     11  217  625 (S49E67 L=262)  1028     58        2 ( 182/ 601- 250/ 654)   5.4 E79-E58 S51-S46
     12  816  429 (S46W05 L=334)   393     79        0 ( 791/ 404- 852/ 468) -18.4 W02-W08 S47-S43
     13  934  430 (S42W14 L=343)   657    146        1 ( 883/ 407-1013/ 466)  18.4 W09-W19 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