Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1327 1799 (N56E08 L= 50)   499     37        0 (1308/1778-1344/1821) -81.9 E10-E05 N52-N59
      2  720 1664 (N23E40 L= 19)   762    190        0 ( 642/1636- 797/1693)  20.0 E45-E34 N20-N25
      3 1397 1585 (N39W07 L= 65)   817    141        2 (1341/1528-1447/1634) -16.7 W01-W11 N36-N42
      4 1574 1389 (N32W24 L= 83)   404    112        0 (1531/1338-1609/1423) -23.2 W20-W27 N29-N33
      5  438 1094 (S17E38 L= 21)   551    236        0 ( 361/1036- 515/1174)  54.0 E43-E33 S21-S10
      6 1411 1139 (N11W19 L= 77)   218     68        1 (1385/1107-1441/1162)  63.4 W17-W20 N09-N13
      7 1764 1026 (N17W47 L=105)   469     77        1 (1737/ 989-1788/1053) -26.6 W44-W49 N15-N19
      8 1686 1010 (N13W40 L= 99)   354     72        1 (1659/ 970-1706/1036) -26.6 W38-W42 N11-N14
      9  291  949 (S29E49 L= 10)   473    142        0 ( 237/ 908- 338/ 982)  28.6 E54-E43 S32-S26
     10 1201  811 (S12W16 L= 74)   192     37        1 (1186/ 787-1220/ 833)  90.0 W14-W17 S13-S10
     11 1518  677 (S10W40 L= 98)   299     52        1 (1491/ 643-1544/ 704) -76.0 W38-W41 S12-S08
     12 1384  365 (S31W49 L=108)   835    159        2 (1323/ 329-1447/ 406)   0.0 W42-W57 S32-S29
     13 1363  233 (S39W63 L=122)  1031    175        1 (1287/ 183-1430/ 277) -84.3 W60-W67 S44-S34
  

    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