Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1150 1476 (N28W21 L=254)   424    123        1 (1090/1457-1220/1490) -26.6 W17-W25 N25-N30
      2 1574 1433 (N13W46 L=279)  1666    380        2 (1476/1356-1709/1477) -10.8 W37-W58 N08-N15
      3  288 1117 (N29E48 L=185)  1623    305        3 ( 253/ 958- 342/1251)  60.6 E52-E41 N20-N36
      4  975 1139 (N14W00 L=233)  1824    367        5 ( 777/1105-1168/1175) -22.2 E11-W11 N09-N19
      5 1579  975 (S11W31 L=264)   711    244        1 (1526/ 883-1625/1038)  36.9 W27-W35 S16-S07
      6 1908  975 (S24W60 L=293)   625     94        0 (1894/ 928-1918/1024)  63.4 W58-W62 S26-S20
      7  596  955 (N13E27 L=206)   212     57        0 ( 577/ 919- 617/ 989)  53.1 E28-E24 N11-N15
      8  251  815 (N12E58 L=175)   736    103        3 ( 228/ 778- 284/ 857) -68.2 E61-E55 N09-N14
      9  601  760 (N02E32 L=201)   621    123        1 ( 559/ 721- 651/ 819) -71.6 E33-E28 N00-N06
     10  971  551 (S19E16 L=217)  2221    501        4 ( 805/ 363-1073/ 696) -85.6 E21-E12 S32-S06
     11  405  536 (S07E55 L=178)   392     59        0 ( 377/ 516- 436/ 557) -45.0 E57-E52 S08-S05
     12  820  397 (S25E32 L=201)   454    152        1 ( 800/ 342- 850/ 459)  58.0 E33-E27 S29-S21
     13  506  383 (S19E55 L=178)   483     83        0 ( 475/ 340- 542/ 409) -80.5 E56-E52 S22-S16
     14  581  248 (S30E59 L=174)  1169    241        3 ( 555/ 208- 602/ 300)  38.7 E64-E54 S33-S25
  

    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