Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1281 1778 (N41W51 L=208)   762    132        1 (1217/1741-1343/1809)  -7.6 W43-W58 N39-N42
      2 1511 1598 (N23W52 L=209)   999    134        3 (1445/1573-1580/1629) -13.0 W46-W59 N20-N25
      3  598 1432 (N41E17 L=140)   424     77        0 ( 562/1406- 638/1465) -50.2 E19-E14 N38-N44
      4 1178 1425 (N24W21 L=178)   455    186        0 (1107/1385-1266/1461) -45.0 W17-W24 N19-N26
      5  841 1313 (N27E03 L=154)   204     69        1 ( 809/1290- 882/1337) -45.0 E04-W00 N24-N28
      6 1025 1254 (N18W06 L=163)   829    344        2 ( 892/1210-1193/1294) -15.5 E02-W16 N14-N21
      7 1607 1028 (S10W34 L=192)  1046    372        3 (1509/ 866-1671/1151) -81.0 W30-W37 S20-S01
      8  415 1026 (N21E38 L=119)   326     76        0 ( 383/ 999- 454/1053) -38.7 E40-E35 N18-N22
      9  797 1027 (N12E13 L=145)   377    164        2 ( 702/1005- 847/1050) -18.4 E18-E09 N09-N14
     10  818  973 (N08E13 L=144)   288    107        1 ( 779/ 948- 872/1006)   8.1 E15-E08 N07-N09
     11  545  860 (N08E32 L=125)   288     79        0 ( 526/ 819- 563/ 899) -90.0 E33-E31 N05-N10
     12  309  829 (N11E52 L=105)   425    132        0 ( 270/ 809- 367/ 856)   0.0 E55-E46 N10-N13
     13 1235  588 (S25W00 L=157)   211     70        1 (1192/ 564-1273/ 612)   0.0 E02-W02 S25-S24
     14  907  408 (S27E26 L=131)  1288    255        5 ( 867/ 304- 940/ 533)  49.1 E34-E20 S33-S18
     15  685  327 (S27E46 L=111)   335     60        1 ( 671/ 292- 702/ 359)  39.8 E48-E42 S29-S24
  

    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