Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  994 1725 (N46E18 L=145)   315     44        0 ( 963/1712-1021/1744)  11.3 E20-E15 N44-N47
      2 1145 1638 (N42E03 L=160)   401     93        1 (1105/1615-1187/1657)  38.7 E05-W00 N39-N43
      3  348 1459 (N16E57 L=106)  2468    286        4 ( 284/1326- 402/1601) -81.0 E61-E53 N06-N25
      4  423 1434 (N15E49 L=114)   308    129        0 ( 371/1417- 472/1446)  20.6 E52-E44 N13-N16
      5  541 1309 (N09E36 L=127)   587    138        2 ( 502/1262- 583/1349) -15.9 E38-E31 N06-N12
      6 1072 1262 (N15E01 L=162)   271     41        1 (1045/1234-1098/1287) -45.0 E02-W01 N13-N16
      7  655 1174 (N03E25 L=137)   395    167        2 ( 638/1125- 677/1228) -63.4 E26-E23 N00-N06
      8  571  959 (S11E27 L=135)   985    200        4 ( 537/ 856- 617/1079) -65.2 E30-E23 S16-S03
      9 1263  962 (S00W15 L=178)   509    133        2 (1198/ 927-1326/1006)  35.5 W11-W18 S03-N03
     10 1785  979 (N09W54 L=216)   353     59        0 (1764/ 954-1804/1003)  53.1 W52-W55 N06-N10
     11  398  714 (S29E40 L=123)   275     56        0 ( 383/ 689- 423/ 742) -45.0 E40-E37 S30-S27
     12 1410  609 (S19W32 L=195)   626    252        0 (1307/ 534-1526/ 686)  45.0 W26-W39 S25-S13
     13  229  638 (S38E59 L=104)   770    186        1 ( 204/ 609- 247/ 676)  45.0 E62-E55 S40-S34
     14 1278  419 (S34W30 L=193)   313     80        0 (1249/ 400-1316/ 443)  -9.5 W27-W33 S35-S32
     15 1566  382 (S32W55 L=218)  1302    245        0 (1480/ 353-1667/ 434)  28.3 W48-W62 S34-S26
  

    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