Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1346 1763 (N39W50 L=198)  1439    263        2 (1214/1704-1450/1809)   0.0 W34-W65 N37-N40
      2  655 1405 (N34E15 L=133)   449    121        0 ( 607/1385- 728/1425) -12.5 E18-E09 N31-N35
      3 1750 1330 (N03W56 L=204)   439     77        1 (1713/1307-1785/1348) -15.9 W52-W59 N01-N04
      4  873 1305 (N22E03 L=145)   266     86        0 ( 829/1276- 909/1321)  11.3 E05-W00 N21-N23
      5 1366 1248 (N08W25 L=173)   292     56        0 (1343/1214-1387/1280) -78.7 W23-W25 N05-N10
      6 1805 1171 (S07W56 L=204)   547     45        2 (1781/1150-1833/1198) -36.9 W52-W58 S08-S05
      7  934 1164 (N13E02 L=146)   250    138        0 ( 871/1146- 987/1193)  -9.5 E05-W01 N11-N14
      8 1853 1076 (S14W59 L=207)  2663    222        9 (1786/1008-1913/1175)  18.4 W50-W69 S18-S09
      9 1529 1132 (S02W32 L=180)   270    101        0 (1487/1096-1554/1166)  18.4 W28-W34 S03-N00
     10  380 1047 (N18E41 L=107)  1534    337        5 ( 238/1001- 502/1139)   2.4 E54-E30 N14-N20
     11 1610 1023 (S10W35 L=183)   368     81        1 (1594/ 983-1626/1074)  59.0 W33-W37 S12-S07
     12 1713  884 (S21W42 L=190)   538    115        0 (1692/ 832-1729/ 943)  71.6 W39-W43 S24-S17
     13 1558  792 (S23W28 L=176)   976    215        1 (1484/ 707-1613/ 880)  36.0 W21-W33 S26-S18
     14 1369  734 (S21W14 L=162)   828    272        0 (1324/ 622-1431/ 853)  47.5 W09-W20 S27-S15
     15 1590  682 (S31W29 L=177)   429    129        0 (1540/ 645-1637/ 736)  20.6 W25-W33 S32-S28
     16  495  620 (S09E43 L=105)   294     62        1 ( 480/ 592- 511/ 658)  76.0 E44-E40 S10-S06
     17 1002  535 (S25E13 L=135)   339    108        0 ( 970/ 489-1030/ 581)  39.8 E16-E10 S27-S22
     18 1731  488 (S51W50 L=198)   540     68        0 (1697/ 477-1772/ 501)  -7.6 W43-W59 S52-S48
     19  699  413 (S26E38 L=110)   442    110        0 ( 680/ 361- 715/ 472)  41.2 E41-E33 S29-S22
     20  707  265 (S37E48 L=100)   419     55        0 ( 690/ 230- 726/ 291)  32.0 E52-E44 S39-S34
  

    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