Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  939 1851 (N48E29 L=195)  1015    200        1 ( 902/1801- 967/1904) -56.3 E32-E24 N42-N54
      2  561 1452 (N12E37 L=187)   430    183        1 ( 502/1408- 620/1533)  66.0 E40-E34 N08-N17
      3 1279 1484 (N26W08 L=232)   655    137        0 (1240/1422-1328/1529)  58.0 W05-W10 N21-N29
      4 1589 1362 (N25W30 L=255)  1230    220        1 (1531/1246-1636/1462) -56.3 W25-W34 N18-N30
      5 1832 1423 (N36W54 L=278)   941    267        0 (1772/1399-1885/1441)  15.9 W47-W61 N34-N38
      6  563 1396 (N08E35 L=189)   225     50        1 ( 536/1381- 595/1408)   0.0 E37-E32 N07-N09
      7  628 1064 (S10E24 L=200)  1591    429        1 ( 523/ 884- 708/1249)  73.1 E29-E21 S22-N01
      8 1846 1134 (N17W54 L=278)  1336    217        2 (1829/1017-1862/1234) -85.9 W52-W56 N09-N23
      9 1453 1114 (N06W24 L=248)   318     72        0 (1415/1079-1485/1155) -33.7 W20-W26 N04-N08
     10  217  958 (S21E56 L=168)  1416    311        1 ( 150/ 854- 267/1064)  49.8 E62-E51 S27-S14
     11  295  792 (S31E48 L=176)  1555    461        2 ( 187/ 693- 407/ 914)  35.5 E60-E38 S37-S22
     12 1409  698 (S18W30 L=254)  4140   1052        7 ( 910/ 596-1788/ 768)  22.1 W00-W60 S33-S08
     13  818  593 (S36E06 L=218)   343     83        0 ( 774/ 576- 864/ 608)  -8.1 E08-E02 S37-S34
     14  634  533 (S44E20 L=205)  1234    225        2 ( 561/ 492- 736/ 578)  25.0 E26-E11 S47-S38
  

    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