Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  827 1866 (N41E51 L=347)  1578    149        1 ( 786/1806- 862/1907) -20.2 E61-E42 N36-N44
      2  410 1627 (N13E63 L=335)  2334    251        5 ( 359/1528- 468/1746) -55.5 E72-E58 N06-N22
      3  444 1534 (N08E53 L=345)  2410    319        4 ( 326/1449- 578/1626)  40.9 E61-E46 N01-N16
      4 1194 1586 (N31E07 L= 31)   431     48        1 (1168/1552-1215/1618) -53.1 E08-E05 N29-N34
      5 1526 1495 (N37W18 L= 56)   279     49        1 (1508/1466-1545/1518)  76.0 W16-W19 N35-N39
      6  559 1387 (N02E38 L=  0)   278     76        1 ( 540/1363- 591/1416) -18.4 E40-E34 N00-N03
      7  229 1162 (S18E59 L=339)   992    105        1 ( 176/1127- 272/1196)  21.8 E65-E54 S20-S15
      8 1771 1017 (N16W48 L= 86)   574    161        0 (1752/ 938-1788/1091) -71.6 W44-W49 N11-N20
      9  541  862 (S28E25 L= 13)   798    205        3 ( 464/ 814- 636/ 929)  42.3 E30-E19 S33-S22
     10 1199  821 (S12W16 L= 54)   213    139        0 (1138/ 797-1262/ 838)  14.0 W11-W19 S13-S11
     11 1368  642 (S17W32 L= 70)  1343    283        3 (1259/ 577-1472/ 726)  65.2 W26-W35 S22-S09
     12  928  656 (S29W06 L= 44)   798    372        0 ( 780/ 625-1128/ 689)  32.3 E03-W16 S35-S22
     13  931  501 (S39W12 L= 50)  1811    449        2 ( 774/ 425-1146/ 593)  49.4 W03-W21 S48-S26
     14 1202  201 (S48W57 L= 95)   643     73        2 (1181/ 166-1226/ 239) -15.9 W49-W63 S49-S45
  

    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