Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  277 1486 (N11E69 L=206)  1472    115        3 ( 244/1430- 317/1535) -76.0 E74-E64 N06-N14
      2  307 1429 (N08E61 L=214)   774    112        2 ( 265/1388- 344/1461)  50.2 E64-E56 N04-N10
      3 1510 1031 (N09W29 L=305)   305     62        1 (1481/ 999-1529/1065)  90.0 W27-W31 N07-N11
      4 1737 1028 (N14W47 L=323)   323     55        0 (1718/ 996-1756/1057)  63.4 W46-W48 N11-N15
      5  233  936 (S23E56 L=219)  1072    155        2 ( 209/ 860- 257/1002)  68.2 E59-E53 S28-S18
      6 1781  965 (N11W53 L=328)   454     64        1 (1755/ 929-1800/ 996)  90.0 W50-W54 N08-N12
      7 1566  939 (N05W35 L=310)   441     72        1 (1533/ 912-1603/ 979)  76.0 W33-W38 N02-N06
      8  820  755 (S22E07 L=268)   228     46        0 ( 799/ 740- 846/ 777)   0.0 E08-E05 S23-S20
      9  552  627 (S36E25 L=250)   762    172        0 ( 488/ 592- 621/ 688) -14.0 E30-E18 S38-S33
     10 1199  627 (S22W20 L=295)   263     97        0 (1147/ 611-1242/ 641)  18.4 W16-W22 S22-S20
     11  229  611 (S45E68 L=207)   710     55        1 ( 203/ 587- 259/ 635)  11.9 E82-E61 S47-S43
     12 1403  525 (S23W37 L=312)   286     66        0 (1380/ 493-1427/ 551)  90.0 W36-W38 S25-S20
     13 1524  453 (S25W51 L=326)  1376    176        4 (1449/ 401-1596/ 510)  68.2 W45-W57 S29-S19
  

    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