Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  598 1562 (N37E35 L=240)   737    178        0 ( 545/1524- 662/1608) -21.0 E41-E28 N34-N40
      2 1035 1488 (N33E00 L=275)   266     55        0 (1002/1470-1072/1505)  14.0 E02-W02 N31-N34
      3  794 1220 (N15E15 L=260)  1387    428        2 ( 708/1138- 951/1324) -14.0 E21-E05 N09-N21
      4  282 1293 (N17E56 L=219)   551     94        2 ( 256/1268- 316/1318)  31.0 E58-E52 N15-N18
      5  331 1255 (N15E50 L=225)   305     88        0 ( 305/1227- 356/1276) -18.4 E53-E47 N13-N16
      6  154 1184 (N09E71 L=205)  1128    225        2 ( 129/1146- 180/1232) -24.0 E77-E66 N07-N12
      7 1029 1114 (N09W00 L=276)   243     97        1 ( 983/1086-1056/1156)  45.0 E02-W01 N07-N11
      8  800  858 (S07E14 L=262)   408    153        0 ( 753/ 817- 860/ 884)   0.0 E16-E09 S10-S05
      9  176  808 (S14E67 L=209)   613     96        2 ( 155/ 782- 195/ 838)  76.0 E70-E64 S15-S11
     10 1188  752 (S14W11 L=286)   417     79        1 (1164/ 713-1215/ 801)  68.2 W09-W12 S16-S10
     11  848  698 (S18E11 L=265)   352    130        4 ( 799/ 672- 906/ 720)   0.0 E13-E07 S19-S16
     12  222  678 (S22E63 L=213)   528    122        1 ( 198/ 657- 251/ 703) -31.0 E65-E58 S23-S20
     13  346  564 (S29E52 L=223)  1245    520        1 ( 298/ 450- 403/ 684)  42.0 E63-E43 S38-S20
     14  545  579 (S27E34 L=242)   422    157        2 ( 529/ 518- 573/ 632)  82.9 E35-E30 S31-S22
     15 1082  568 (S26W05 L=280)   539    148        0 (1009/ 542-1139/ 613)  26.6 W00-W08 S27-S22
  

    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