Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1037 1841 (N56W08 L=310)   377     57        0 (1012/1823-1072/1853)  15.9 W05-W12 N54-N57
      2  775 1712 (N45E17 L=285)   495     47        1 ( 749/1687- 810/1734) -18.4 E19-E13 N43-N47
      3 1208 1633 (N36W17 L=319)   986    276        1 (1063/1612-1322/1651) -11.9 W06-W25 N34-N38
      4 1619 1604 (N33W52 L=354)   514     87        0 (1571/1581-1663/1623) -14.0 W47-W56 N30-N34
      5  656 1540 (N32E24 L=278)   884    149        0 ( 575/1520- 731/1561)   0.0 E30-E18 N30-N34
      6 1652 1482 (N24W49 L=351)  1003    190        2 (1597/1436-1724/1540) -41.2 W45-W55 N20-N27
      7 1019 1458 (N25W02 L=304)  1572    428        5 ( 832/1336-1169/1520) -31.0 E10-W10 N16-N29
      8 1588 1353 (N16W39 L=341)  1376    394        4 (1448/1244-1750/1453) -33.7 W30-W51 N08-N22
      9 1283 1333 (N15W18 L=320)   917    306        3 (1216/1245-1368/1440) -72.9 W13-W22 N09-N22
     10 1813 1324 (N13W60 L=  2)  1099    168        2 (1779/1287-1859/1390) -56.3 W56-W66 N11-N17
     11  573 1339 (N19E28 L=274)   219     65        0 ( 547/1314- 600/1371) -45.0 E30-E26 N17-N21
     12  250 1310 (N20E57 L=245)   536     62        2 ( 230/1273- 279/1343) -68.2 E59-E53 N17-N22
     13  303 1182 (N11E49 L=253)   879    103        2 ( 259/1146- 349/1215) -18.4 E53-E44 N08-N13
     14 1377  891 (S12W21 L=323)  1541    390        3 (1302/ 732-1476/1055)  64.7 W16-W28 S21-S02
     15  700  830 (S12E21 L=281)   212     78        0 ( 674/ 796- 726/ 859)  45.0 E23-E19 S14-S10
     16  973  754 (S18E05 L=297)   321    132        1 ( 952/ 695-1009/ 815)  66.8 E06-E01 S21-S14
     17  717  595 (S27E23 L=278)   518    151        1 ( 674/ 540- 757/ 669)  45.0 E27-E19 S30-S22
     18 1435  592 (S31W27 L=329)   418    100        1 (1403/ 555-1464/ 640)  80.5 W24-W29 S33-S27
     19 1325  507 (S36W20 L=322)   669    148        1 (1254/ 474-1393/ 552)  11.3 W14-W25 S38-S33
     20  985  443 (S39E06 L=295)   706    167        4 ( 920/ 412-1070/ 481) -10.3 E11-W00 S41-S36
     21  648  396 (S40E35 L=266)   583    106        1 ( 590/ 376- 697/ 416)  -5.7 E40-E30 S41-S39
  

    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