Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  710 1831 (N35E56 L=262)  1769    145        3 ( 679/1763- 738/1893) -27.6 E73-E48 N29-N40
      2 1153 1656 (N36E13 L=306)   317     69        0 (1127/1625-1187/1683) -26.6 E15-E09 N34-N37
      3 1640 1548 (N47W29 L=348)   770     87        0 (1609/1503-1666/1583) -56.3 W25-W32 N43-N50
      4 1071 1419 (N18E09 L=310)   386    150        0 (1042/1346-1099/1488) -45.0 E12-E05 N13-N21
      5  170 1086 (S23E66 L=253)   872    108        1 ( 156/1028- 184/1136) -63.4 E69-E63 S26-S20
      6 1829  980 (N17W55 L= 14)  1444    311        1 (1789/ 864-1892/1098) -32.0 W49-W66 N12-N23
      7 1557 1055 (N12W30 L=349)   386    100        0 (1518/1017-1596/1094)  63.4 W28-W32 N08-N14
      8  796 1006 (S13E12 L=307)   553    255        0 ( 706/ 948- 910/1038)  13.0 E17-E04 S16-S11
      9  655  854 (S25E17 L=302)   254     78        1 ( 629/ 822- 688/ 885) -26.6 E19-E14 S26-S23
     10  368  802 (S36E40 L=279)   447     81        1 ( 325/ 775- 407/ 827)  18.4 E44-E35 S38-S34
     11 1666  755 (S01W47 L=  6)   601     81        0 (1636/ 730-1705/ 790)   0.0 W44-W51 S02-N00
     12  772  641 (S35E04 L=315)   794    163        0 ( 689/ 623- 863/ 663)  24.4 E09-W02 S37-S31
     13 1441  366 (S29W54 L= 13)  3598    526        7 (1208/ 302-1672/ 439)  38.4 W40-W70 S39-S16
  

    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