Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  516 1577 (N15E46 L=106)   910    197        4 ( 453/1520- 564/1646)  73.3 E49-E43 N10-N20
      2  585 1541 (N14E40 L=112)   536    105        1 ( 541/1496- 633/1586)  66.8 E41-E38 N10-N17
      3  342 1422 (N03E55 L= 97)   806    185        0 ( 312/1349- 374/1500) -60.9 E58-E49 S01-N08
      4 1107 1472 (N21E06 L=146)   359     89        0 (1065/1429-1145/1500)  -9.5 E08-E02 N18-N22
      5 1042 1176 (N02E02 L=150)   263    111        0 ( 989/1144-1106/1197)  45.0 E04-W01 S01-N03
      6  470 1155 (S11E37 L=115)   303    107        0 ( 431/1125- 511/1178)   0.0 E39-E33 S12-S09
      7 1701 1118 (N15W40 L=192)   295     74        1 (1667/1085-1729/1148)  -9.5 W36-W42 N13-N16
      8  200 1084 (S19E59 L= 94)   749    173        2 ( 159/1022- 248/1127)  49.4 E62-E54 S22-S15
      9  915 1056 (S08E07 L=145)   231     56        0 ( 882/1039- 947/1075)   0.0 E09-E04 S08-S06
     10  278  983 (S24E49 L=103)   719    157        0 ( 259/ 905- 294/1062) -77.5 E51-E47 S28-S18
     11  919  812 (S22E01 L=151)   912    216        0 ( 813/ 732-1018/ 877)  58.4 E06-W03 S28-S15
     12 1728  576 (S13W60 L=213)  5454    842       18 (1641/ 448-1822/ 689) -32.9 W50-W72 S20-S06
     13 1464  544 (S23W41 L=193)   414     72        0 (1427/ 525-1505/ 558)  32.7 W38-W43 S24-S21
     14 1584  443 (S25W55 L=207)   727    122        2 (1540/ 415-1637/ 481)  60.3 W51-W58 S27-S20
     15 1561  344 (S30W60 L=212)   657    194        0 (1517/ 324-1617/ 375)  10.3 W54-W65 S31-S28
  

    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