Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  743 1864 (N38E56 L=136)   754     52        1 ( 714/1839- 779/1884)   0.0 E63-E51 N35-N39
      2  678 1818 (N33E55 L=137)   447     59        1 ( 654/1788- 697/1845) -45.0 E58-E51 N30-N35
      3  830 1605 (N22E29 L=163)   821    252        2 ( 782/1492- 888/1709) -36.3 E36-E21 N16-N28
      4  415 1529 (N08E54 L=138)  2592    381        6 ( 341/1381- 524/1630)  86.6 E60-E49 S02-N15
      5 1124 1530 (N25E09 L=183)   355    124        0 (1107/1470-1144/1581) -54.5 E11-E05 N22-N29
      6 1218 1300 (N14W03 L=195)   343    122        0 (1182/1243-1233/1346) -45.0 W00-W05 N11-N16
      7  422 1064 (S19E38 L=154)  1663    326        1 ( 295/ 945- 518/1173)  50.5 E47-E32 S27-S10
      8  536  838 (S29E25 L=167)  2765    671        4 ( 238/ 728- 830/ 918)  27.5 E55-E07 S43-S17
      9 1635  858 (N03W41 L=233)   300     47        0 (1622/ 829-1649/ 889) -45.0 W39-W42 N01-N04
     10 1517  742 (S07W37 L=229)   264     59        0 (1499/ 705-1531/ 774) -36.9 W34-W38 S08-S05
     11 1171  614 (S24W21 L=213)   360    108        1 (1114/ 595-1219/ 642)  45.0 W18-W23 S26-S21
     12 1654  543 (S12W57 L=249)  1006    189        2 (1600/ 485-1711/ 604)  77.5 W53-W60 S16-S07
     13  571  470 (S53E16 L=176)   417    110        0 ( 539/ 429- 616/ 516) -24.0 E19-E10 S54-S49
     14 1646  437 (S18W64 L=257)   548     58        1 (1624/ 403-1670/ 459) -45.0 W60-W67 S19-S16
     15 1026  290 (S49W31 L=224)  1922    358        4 ( 866/ 221-1147/ 386)   0.0 W12-W46 S50-S44
  

    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