Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1268 1592 (N41W08 L=157)   755    179        1 (1196/1529-1326/1640)  48.0 W03-W12 N34-N45
      2  416 1447 (N16E50 L=100)   422     83        2 ( 380/1422- 453/1477)  26.6 E52-E46 N14-N18
      3  553 1391 (N15E37 L=112)   324    115        2 ( 507/1374- 607/1406)  26.6 E40-E33 N13-N16
      4  747 1280 (N11E21 L=128)   905    233        5 ( 689/1216- 809/1335)  66.0 E24-E17 N06-N15
      5  844 1160 (N05E13 L=137)   193     28        0 ( 827/1139- 863/1182) -33.7 E14-E11 N04-N06
      6 1772 1111 (N16W51 L=200)   532    124        0 (1738/1053-1791/1164) -60.3 W47-W53 N12-N19
      7  155 1035 (S12E67 L= 83)   834    152        3 ( 134/ 974- 173/1096)  90.0 E69-E64 S16-S08
      8  454 1011 (S09E36 L=113)   303    132        0 ( 411/ 985- 510/1050)  29.7 E39-E32 S11-S06
      9  759  941 (S09E15 L=134)   806    125        3 ( 715/ 888- 805/1016) -76.0 E17-E11 S12-S04
     10 1251  985 (N01W14 L=164)   250     45        1 (1221/ 970-1279/1001)   0.0 W12-W16 N00-N02
     11 1448  908 (S01W28 L=177)   498    107        1 (1403/ 880-1506/ 932)  26.6 W25-W31 S02-N01
     12  297  591 (S40E52 L= 97)   616    170        0 ( 261/ 568- 336/ 617)  24.0 E56-E47 S41-S36
     13 1313  417 (S34W33 L=182)   365     56        0 (1273/ 395-1345/ 437)  36.9 W30-W34 S36-S32
     14 1426  374 (S35W44 L=193)   624    150        1 (1386/ 351-1479/ 410)  -6.3 W39-W48 S36-S32
  

    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