Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  854 1807 (N43E39 L= 53)  3202    316        3 ( 801/1692- 947/1943) -21.8 E74-E24 N36-N56
      2  406 1608 (N19E61 L= 31)  1295    142        5 ( 352/1566- 434/1670) -53.1 E68-E56 N15-N23
      3  593 1563 (N20E42 L= 50)   315     86        2 ( 581/1519- 606/1603) -51.3 E44-E39 N17-N22
      4 1307 1545 (N36W06 L= 98)   233     44        0 (1293/1515-1326/1570)  90.0 W05-W07 N33-N38
      5  578 1445 (N12E38 L= 55)   313     66        2 ( 555/1418- 611/1470) -18.4 E40-E34 N11-N13
      6  294 1342 (N01E57 L= 35)  1476    230        3 ( 248/1247- 357/1447)  85.6 E59-E54 S05-N08
      7 1229 1360 (N22W05 L= 97)   203     85        0 (1199/1320-1259/1392) -31.0 W02-W07 N19-N23
      8  518 1261 (N01E36 L= 56)   230     68        0 ( 495/1221- 531/1290) -33.7 E38-E34 S01-N02
      9  163 1171 (S11E68 L= 25)  1271    120        5 ( 121/1138- 198/1218) -20.0 E77-E62 S13-S08
     10 1008 1057 (S01E02 L= 91)   389     94        1 ( 986/1011-1034/1101)  90.0 E03-W00 S03-N01
     11 1416  929 (N01W25 L=117)   968    214        4 (1357/ 836-1461/1021) -41.6 W20-W29 S03-N05
     12 1488  587 (S17W41 L=133)   372     56        0 (1469/ 561-1511/ 618) -18.4 W37-W43 S18-S15
     13 1764  495 (S15W74 L=167)   707     84        0 (1721/ 470-1802/ 520)  29.1 W69-W81 S17-S12
  

    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