Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1358 1859 (N44W63 L=323)  1178     92        2 (1324/1825-1385/1900)   5.4 W55-W76 N42-N46
      2 1261 1833 (N46W50 L=310)   568     68        0 (1243/1795-1287/1862)  18.4 W44-W56 N43-N47
      3 1295 1635 (N32W35 L=295)   671    116        0 (1239/1605-1352/1660) -50.2 W32-W38 N28-N34
      4 1690 1475 (N12W56 L=316)  2037    230        3 (1589/1417-1792/1545) -38.2 W50-W64 N06-N17
      5  411 1515 (N48E37 L=222)   417     55        2 ( 386/1492- 450/1536)   8.1 E40-E32 N46-N49
      6 1256 1470 (N23W25 L=285)   269     73        0 (1222/1448-1292/1488) -45.0 W23-W26 N20-N24
      7  747 1390 (N31E09 L=251)   861    209        1 ( 647/1370- 853/1404) -15.9 E15-E01 N28-N33
      8 1239 1345 (N16W20 L=279)   327    162        0 (1170/1316-1305/1384)   0.0 W15-W25 N15-N17
      9  993 1348 (N22W06 L=265)   251    102        0 ( 948/1316-1032/1378) -51.3 W03-W07 N19-N24
     10  982 1104 (N09E01 L=259)   900    321        4 ( 871/1080-1161/1135) -21.8 E07-W09 N04-N11
     11 1646 1054 (S09W38 L=297)   826    171        2 (1602/ 985-1696/1123) -68.2 W36-W41 S14-S04
     12 1812 1018 (S16W52 L=311)   420     73        1 (1795/ 971-1830/1058)  59.0 W49-W54 S18-S13
     13  224  933 (N14E56 L=203)  1133    203        1 ( 156/ 842- 288/1000) -47.7 E63-E51 N08-N19
     14  410  770 (N02E44 L=216)   398    106        0 ( 381/ 743- 447/ 795)   0.0 E46-E40 N00-N03
     15  856  717 (S10E16 L=243)   279     62        3 ( 825/ 691- 880/ 746)  14.0 E18-E14 S12-S08
     16  892  644 (S15E16 L=243)   250     64        1 ( 867/ 617- 914/ 676)  71.6 E18-E15 S16-S13
     17 1497  583 (S34W20 L=280)   897    185        2 (1406/ 527-1576/ 635)   4.1 W12-W27 S35-S31
     18  498  427 (S20E51 L=208)  1059    163        1 ( 453/ 367- 549/ 477)  76.0 E54-E48 S24-S16
     19  509  318 (S27E60 L=200)  1358    209        2 ( 410/ 290- 585/ 367)   0.0 E78-E49 S29-S25
     20  870  199 (S45E41 L=219)  1505    147        3 ( 801/ 158- 927/ 258)  11.9 E50-E31 S48-S41
  

    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