Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  926 1852 (N47E29 L=196)  1045    206        3 ( 893/1800- 958/1907) -50.7 E34-E24 N42-N53
      2  581 1487 (N14E36 L=189)   316    147        0 ( 532/1425- 613/1553)  76.0 E38-E35 N09-N18
      3 1265 1489 (N26W07 L=232)   688    141        1 (1223/1425-1308/1540)  71.6 W04-W08 N20-N30
      4 1572 1369 (N25W29 L=254)  1195    212        1 (1517/1261-1628/1467) -53.1 W24-W33 N18-N30
      5 1823 1426 (N36W53 L=278)  1090    260        2 (1759/1400-1880/1447)  18.4 W45-W61 N33-N38
      6  612 1070 (S10E26 L=200)  1375    396        3 ( 520/ 890- 691/1252)  75.4 E29-E22 S22-N01
      7 1837 1165 (N19W53 L=278)  1083    165        1 (1821/1078-1856/1248)  90.0 W51-W55 N13-N23
      8 1435 1122 (N06W23 L=248)   342     75        1 (1396/1084-1473/1163) -18.4 W19-W25 N04-N08
      9  212  968 (S21E56 L=169)  1492    354        1 ( 149/ 859- 273/1070)  52.4 E62-E51 S27-S14
     10  288  795 (S31E49 L=176)  1642    450        3 ( 191/ 695- 395/ 919)  36.9 E59-E39 S37-S22
     11 1491  720 (S15W35 L=260)  3280    853        5 (1106/ 655-1778/ 773)  19.9 W11-W59 S25-S08
     12  983  619 (S31W05 L=230)   463    153        1 ( 907/ 603-1067/ 636)  24.3 W00-W10 S32-S28
     13  666  552 (S42E17 L=208)  1581    408        4 ( 540/ 493- 857/ 612)  19.8 E27-E02 S47-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