Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1016 1657 (N39E16 L=194)   609    133        1 ( 988/1604-1053/1718) -48.8 E20-E11 N35-N43
      2 1346 1457 (N32W13 L=223)   994    265        3 (1266/1340-1418/1525) -39.8 W06-W19 N25-N35
      3 1522 1214 (N20W28 L=238)   301    107        0 (1506/1161-1548/1262) -63.4 W26-W30 N16-N22
      4 1306 1123 (N10W15 L=225)   246     68        1 (1277/1102-1336/1150)  45.0 W13-W16 N08-N11
      5 1833 1047 (N16W58 L=268)  1189    141        4 (1785/ 999-1871/1103)  35.0 W53-W63 N12-N20
      6  346  898 (S21E45 L=165)  2295    477        6 ( 181/ 758- 480/1048)  34.9 E68-E34 S32-S09
      7 1236  682 (S17W20 L=230)   314     42        1 (1211/ 656-1261/ 705) -33.7 W18-W21 S18-S16
      8 1698  623 (S12W57 L=266)  1526    266        2 (1568/ 537-1775/ 671)  36.3 W49-W64 S19-S08
      9 1060  553 (S29W12 L=222)   229    118        0 (1012/ 528-1120/ 568)  29.7 W09-W16 S31-S26
     10 1668  533 (S18W59 L=269)   507    108        4 (1635/ 479-1689/ 568) -63.4 W56-W62 S21-S15
     11 1167  443 (S34W24 L=233)   289    133        0 (1105/ 432-1229/ 460)  26.6 W19-W27 S35-S31
     12  919  275 (S54W13 L=223)   521     98        1 ( 872/ 255- 967/ 295)   5.7 W07-W17 S56-S52
     13  739  264 (S61E06 L=204)   447     69        0 ( 706/ 249- 769/ 284)   0.0 E10-E02 S63-S59
  

    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