Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1082 1611 (N39E05 L= 74)   392     59        2 (1050/1588-1124/1637)  -9.5 E07-E01 N37-N41
      2  744 1528 (N28E27 L= 52)   689    245        1 ( 681/1456- 824/1606) -28.1 E34-E19 N24-N32
      3  433 1426 (N17E47 L= 32)  2394    508        6 ( 377/1257- 488/1571) -45.0 E58-E38 N07-N26
      4 1113 1490 (N31E01 L= 79)   297     78        0 (1096/1449-1125/1528) -78.7 E02-W00 N28-N33
      5 1689 1464 (N38W47 L=126)   397     74        0 (1661/1435-1710/1483) -33.7 W44-W48 N35-N39
      6  937 1368 (N20E10 L= 69)   207     54        0 ( 901/1354- 971/1381)  26.6 E12-E08 N19-N21
      7 1752 1228 (N22W49 L=129)   955    213        0 (1684/1139-1807/1302) -39.3 W43-W55 N17-N26
      8  736 1155 (N05E19 L= 60)   272    101        0 ( 682/1142- 789/1175)  26.6 E22-E16 N03-N06
      9 1664 1100 (N13W42 L=121)   440    112        0 (1650/1052-1679/1163)  90.0 W40-W43 N10-N16
     10  220 1000 (S11E58 L= 21)  1416    548        5 ( 108/ 964- 361/1034)   7.4 E75-E44 S14-S07
     11 1725  652 (S13W56 L=135)   550    111        1 (1683/ 622-1754/ 671)   9.5 W51-W59 S15-S12
     12 1327  431 (S33W32 L=111)   278     61        1 (1307/ 412-1350/ 458) -31.0 W29-W34 S34-S31
     13 1213  420 (S36W24 L=103)   451     53        1 (1183/ 400-1241/ 446) -21.8 W21-W26 S37-S33
     14 1119  418 (S37W17 L= 96)   349     42        2 (1090/ 401-1145/ 440)  33.7 W14-W18 S39-S35
     15  484  409 (S49E39 L= 40)   525    137        0 ( 451/ 387- 524/ 434)  24.4 E44-E33 S51-S46
  

    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