Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1361 1775 (N55W42 L= 99)   622     87        0 (1326/1743-1395/1804)  15.9 W35-W50 N51-N57
      2 1822 1273 (N15W63 L=119)   997    176        0 (1796/1201-1846/1333)  66.0 W57-W66 N10-N19
      3  488 1278 (N20E37 L= 20)   270     21        0 ( 471/1256- 507/1300)  90.0 E38-E34 N18-N21
      4  363 1067 (N07E45 L= 12)   272     92        0 ( 333/1040- 402/1105) -33.7 E47-E41 N05-N09
      5  288  983 (N02E52 L=  5)   531    152        0 ( 222/ 946- 356/1019) -13.0 E58-E45 N00-N03
      6 1491  951 (S02W29 L= 86)   214     98        0 (1477/ 910-1500/1006)  78.7 W28-W30 S04-N01
      7 1210  938 (S02W11 L= 68)   316     99        1 (1193/ 898-1230/ 990) -78.7 W10-W12 S04-N01
      8 1724  938 (S04W48 L=105)   563     87        0 (1678/ 911-1757/ 976)  15.9 W43-W50 S05-S02
      9  766  914 (S02E16 L= 41)   340     78        1 ( 734/ 876- 800/ 954)  53.1 E18-E13 S04-N00
     10  472  869 (S05E37 L= 20)   293     93        0 ( 451/ 835- 486/ 913) -76.0 E38-E35 S06-S02
     11 1113  767 (S12W05 L= 62)   669    286        1 ( 988/ 698-1215/ 825)  26.6 E03-W11 S16-S08
     12  200  719 (S15E67 L=350)  1878    221        7 ( 166/ 629- 242/ 810) -80.5 E72-E62 S21-S09
     13  242  758 (S12E60 L=357)   805    124        3 ( 212/ 712- 286/ 807) -45.0 E62-E55 S15-S09
     14 1707  438 (S39W64 L=121)   705     40        1 (1679/ 426-1733/ 459)   0.0 W59-W72 S40-S37
     15 1486  286 (S51W47 L=103)   591     66        2 (1465/ 259-1512/ 320) -37.9 W41-W54 S54-S47
  

    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