Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  978 1796 (N57W30 L= 39)   330     58        2 ( 949/1777- 999/1817)   0.0 W27-W34 N54-N58
      2 1576 1686 (N28W67 L= 75)   464     59        1 (1551/1667-1607/1702) -36.9 W63-W70 N26-N29
      3 1486 1526 (N23W46 L= 54)   846    215        4 (1418/1488-1567/1564) -37.9 W40-W50 N18-N25
      4 1515 1451 (N18W44 L= 52)   313     72        2 (1486/1426-1548/1473)  11.3 W41-W46 N16-N19
      5 1335 1357 (N18W28 L= 36)   421    102        2 (1289/1331-1377/1386) -51.3 W25-W30 N15-N20
      6 1123 1229 (N16W11 L= 19)   539    225        3 (1060/1163-1182/1284)  11.3 W05-W15 N13-N19
      7 1403 1071 (N00W23 L= 31)  1074    276        3 (1344/ 959-1457/1201)  42.3 W17-W29 S05-N05
      8 1540  809 (S19W26 L= 34)   322     80        2 (1503/ 785-1579/ 830) -45.0 W23-W28 S21-S16
      9 1698  619 (S37W38 L= 46)   741     83        1 (1657/ 595-1730/ 647) -32.0 W33-W41 S39-S34
     10 1400  592 (S28W12 L= 21)   448    128        1 (1349/ 572-1455/ 620) -29.7 W09-W16 S30-S25
     11 1577  500 (S41W25 L= 34)   906    190        1 (1504/ 448-1648/ 546)   8.1 W18-W32 S43-S39
     12 1458  427 (S43W14 L= 23)   402     72        2 (1430/ 407-1493/ 455) -45.0 W11-W17 S45-S39
     13  819  296 (S33E37 L=332)   500     70        0 ( 798/ 270- 845/ 330)  78.7 E39-E34 S35-S30
  

    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