Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  744 1876 (N39E60 L=350)   734     60        1 ( 730/1837- 758/1911) -26.6 E71-E54 N35-N43
      2 1039 1650 (N31E20 L= 31)   299     53        1 (1015/1631-1061/1682)  90.0 E20-E17 N28-N33
      3  342 1572 (N08E67 L=344)  3532    302        5 ( 249/1473- 467/1663)  47.1 E74-E59 N01-N16
      4  676 1555 (N14E37 L= 13)   293    130        0 ( 639/1503- 725/1599) -21.8 E41-E31 N12-N16
      5  928 1262 (N04E12 L= 38)   308    137        1 ( 903/1206- 968/1326) -39.8 E14-E08 N01-N07
      6  134 1188 (S18E75 L=335)   868     69        1 ( 112/1157- 160/1222)  33.7 E80-E70 S19-S15
      7 1297 1059 (N03W14 L= 64)   213     98        0 (1277/1017-1330/1093)  90.0 W13-W15 N00-N06
      8  399  915 (S29E38 L= 12)   710    155        3 ( 340/ 873- 462/ 971)  41.6 E43-E33 S32-S24
      9  949  928 (S14E02 L= 49)   272    124        3 ( 894/ 911-1019/ 947)  18.4 E04-W02 S15-S11
     10 1200  727 (S17W19 L= 69)  1134    309        3 (1089/ 660-1309/ 816)  68.2 W14-W22 S24-S09
     11  920  753 (S24W02 L= 52)   518    252        0 ( 809/ 705-1017/ 774)  17.1 E04-W09 S27-S21
     12  644  706 (S35E14 L= 36)   261     95        0 ( 593/ 698- 695/ 718)  29.7 E18-E11 S36-S32
     13  762  564 (S40E02 L= 48)   674    224        1 ( 679/ 509- 859/ 621)  56.3 E06-W02 S46-S33
     14 1141  238 (S48W47 L= 97)   569     79        0 (1115/ 202-1161/ 272) -13.0 W40-W53 S49-S45
     15 1294  183 (S44W67 L=118)  1127     87        1 (1278/ 140-1318/ 223) -15.5 W59-W81 S46-S41
  

    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