Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  703 1827 (N35E54 L=300)   616     68        0 ( 688/1787- 720/1861) -36.9 E58-E49 N31-N37
      2  576 1754 (N26E57 L=296)  1220    155        1 ( 534/1689- 602/1793) -41.6 E64-E51 N21-N29
      3 1159 1685 (N37E12 L=342)  2003    370        5 (1021/1555-1259/1788) -21.0 E26-W00 N30-N41
      4  801 1601 (N21E30 L=323)   495    126        0 ( 753/1573- 869/1620)  45.0 E32-E26 N17-N23
      5  611 1469 (N08E37 L=317)   505    126        0 ( 590/1401- 630/1520) -54.5 E39-E33 N04-N11
      6  454 1434 (N03E47 L=307)   522    122        0 ( 431/1393- 481/1486) -63.4 E48-E43 N00-N06
      7 1578 1399 (N31W25 L= 18)  1470    242        3 (1490/1320-1651/1462) -18.4 W17-W31 N26-N33
      8  884 1414 (N11E18 L=335)   247     71        1 ( 868/1381- 905/1447) -53.1 E19-E16 N09-N13
      9 1249 1269 (N12W06 L=360)   572    162        2 (1220/1191-1297/1336)  84.3 W04-W07 N07-N17
     10 1470 1154 (N12W22 L= 15)   553    220        0 (1417/1068-1532/1238) -28.6 W16-W27 N08-N15
     11  250 1138 (S18E56 L=297)  1701    438        4 ( 126/1020- 417/1236)  28.1 E72-E42 S26-S10
     12 1818 1095 (N20W51 L= 44)   355     63        0 (1793/1070-1840/1125)  51.3 W48-W53 N18-N23
     13  367 1034 (S22E43 L=311)   247    108        0 ( 347/ 993- 393/1082) -45.0 E45-E40 S23-S19
     14  448 1026 (S21E36 L=317)   255    107        0 ( 412/1013- 492/1055)  18.4 E39-E32 S21-S19
     15  453  784 (S35E32 L=321)   581    156        0 ( 390/ 758- 522/ 825)  35.0 E38-E27 S37-S30
     16 1595  621 (S12W48 L= 41)   377    115        0 (1543/ 602-1642/ 652)  45.0 W44-W50 S14-S09
     17 1669  605 (S11W55 L= 48)   843    184        1 (1597/ 559-1741/ 651)  52.1 W51-W59 S15-S06
     18 1209  553 (S28W26 L= 19)  1022    222        4 (1121/ 511-1301/ 621)  61.4 W21-W29 S32-S21
     19 1752  535 (S11W69 L= 62)   902     81        2 (1729/ 497-1774/ 567) -12.5 W64-W73 S13-S09
     20  405  536 (S54E39 L=314)   623    106        2 ( 347/ 514- 449/ 561)  16.4 E49-E32 S56-S50
     21 1534  427 (S24W56 L= 49)  1576    346        4 (1399/ 345-1653/ 526)  71.6 W49-W61 S33-S15
     22 1678  393 (S20W75 L= 68)  1265     72        2 (1652/ 365-1707/ 421)   5.4 W67-W89 S21-S18
     23 1039  386 (S44W24 L= 18)   346     71        0 ( 996/ 368-1078/ 401)  18.4 W21-W27 S45-S42
     24 1609  344 (S25W72 L= 66)  1081    163        0 (1527/ 317-1677/ 367)  21.8 W65-W87 S29-S21
  

    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