Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  687 1749 (N27E48 L=215)  1673    189        1 ( 645/1660- 716/1824) -45.0 E57-E42 N20-N33
      2  883 1722 (N31E32 L=231)   743    124        0 ( 847/1658- 911/1777) -36.0 E38-E27 N26-N34
      3 1295 1575 (N33W00 L=263)   647    160        0 (1275/1493-1314/1648) -76.0 E01-W02 N27-N39
      4  662 1601 (N17E40 L=223)   751     96        0 ( 623/1556- 710/1634)  68.2 E41-E36 N13-N19
      5 1697 1422 (N38W35 L=298)   985    119        0 (1672/1364-1727/1483)  63.4 W32-W39 N32-N44
      6  522 1353 (S01E39 L=224)   321     47        0 ( 499/1321- 540/1382) -26.6 E41-E37 S02-N00
      7  120 1217 (S15E80 L=183)  1668    115        0 ( 101/1160- 139/1267)  74.1 E84-E74 S18-S11
      8  347 1186 (S14E48 L=215)   454     94        1 ( 318/1137- 373/1230)  71.6 E49-E45 S17-S11
      9 1633 1113 (N16W34 L=297)   654    190        0 (1557/1085-1705/1160)  35.0 W28-W38 N12-N20
     10  222 1007 (S27E58 L=205)   339     57        0 ( 194/ 987- 250/1024)   0.0 E61-E54 S27-S25
     11 1623  635 (S10W49 L=312)   344     89        0 (1577/ 617-1667/ 655)  14.0 W45-W53 S10-S08
     12 1547  465 (S21W54 L=317)   817    132        1 (1498/ 439-1614/ 491)  20.0 W50-W61 S23-S19
     13 1322  458 (S29W39 L=302)  1079    189        1 (1239/ 440-1422/ 488)  32.5 W32-W44 S32-S25
     14 1125  420 (S38W28 L=291)   345     46        0 (1095/ 397-1160/ 442)  11.3 W25-W31 S39-S36
  

    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