Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  927 1800 (N53W00 L= 68)   608    125        2 ( 883/1760- 974/1839)  41.2 E03-W05 N49-N56
      2  842 1680 (N43E08 L= 59)   301     51        1 ( 813/1659- 874/1693)   0.0 E10-E05 N41-N43
      3  644 1522 (N33E23 L= 45)   774    109        1 ( 596/1477- 704/1558)  -6.3 E26-E17 N29-N35
      4 1414 1457 (N22W29 L= 97)   382    125        1 (1348/1424-1470/1479) -20.6 W25-W33 N19-N23
      5 1202 1354 (N17W14 L= 81)   218     78        1 (1164/1315-1246/1387) -59.0 W11-W16 N14-N19
      6  380 1317 (N22E41 L= 26)   531    149        0 ( 340/1287- 423/1364) -40.6 E45-E37 N19-N25
      7 1371 1337 (N15W24 L= 91)   301    136        1 (1297/1324-1427/1351)   0.0 W19-W28 N13-N15
      8 1825 1279 (N08W60 L=127)   457    111        1 (1810/1235-1842/1325)  59.0 W57-W62 N05-N10
      9  259 1113 (N10E52 L= 15)   323     53        2 ( 245/1078- 275/1148)  76.0 E53-E50 N08-N12
     10  209  941 (N01E58 L=  9)   481    118        0 ( 177/ 906- 236/ 980)  23.2 E62-E55 S01-N02
     11 1797  902 (S14W53 L=120)   339     66        2 (1781/ 870-1811/ 934)  76.0 W51-W54 S16-S12
     12  972  796 (S15E05 L= 62)   536     98        2 ( 938/ 747- 999/ 856)  56.3 E07-E02 S17-S11
     13  766  735 (S17E19 L= 49)   197     68        0 ( 735/ 714- 805/ 750)  11.3 E20-E15 S17-S15
     14  559  327 (S42E47 L= 20)   529    127        0 ( 518/ 309- 610/ 345)  -7.1 E50-E42 S43-S40
  

    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