Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1220 1701 (N48W27 L= 48)   523     55        0 (1192/1663-1243/1729)  80.5 W25-W30 N44-N50
      2 1625 1526 (N29W54 L= 75)   377     72        1 (1604/1499-1651/1547) -45.0 W51-W57 N27-N30
      3 1605 1446 (N25W48 L= 69)   552    101        0 (1555/1414-1645/1479) -45.0 W45-W50 N22-N27
      4  275 1411 (N34E62 L=318)  1102    104        2 ( 241/1377- 322/1446) -14.9 E70-E55 N31-N36
      5  896 1383 (N29E05 L= 15)   254    121        0 ( 844/1354- 954/1413) -35.5 E08-E01 N26-N31
      6 1467 1348 (N20W33 L= 54)   242    107        0 (1440/1309-1509/1370)  18.4 W30-W36 N18-N21
      7 1133 1051 (N06W07 L= 27)   473    173        1 (1061/1009-1213/1079)   5.7 W02-W12 N03-N07
      8 1401 1034 (N02W24 L= 44)   323     99        0 (1362/ 994-1438/1076)  33.7 W20-W26 N00-N04
      9 1880  960 (S09W65 L= 86)  3328    229        7 (1825/ 863-1936/1048)  45.0 W57-W76 S14-S04
     10  353  821 (S03E48 L=333)   327     64        0 ( 333/ 786- 370/ 851) -76.0 E49-E46 S05-S01
     11  268  701 (S10E60 L=321)  1442    263        3 ( 225/ 584- 336/ 791) -70.3 E62-E56 S18-S04
     12  305  747 (S08E54 L=327)   417     81        2 ( 274/ 712- 336/ 776) -38.7 E56-E50 S09-S05
     13 1539  743 (S18W32 L= 52)   297     81        0 (1522/ 705-1565/ 773)  68.2 W30-W33 S20-S15
     14  821  671 (S15E16 L=  5)   481    183        3 ( 765/ 636- 869/ 734) -54.5 E19-E13 S17-S10
     15  907  616 (S19E11 L=  9)   505    186        0 ( 835/ 576- 946/ 683)  32.0 E16-E08 S21-S14
     16  641  535 (S23E31 L=349)   621    141        4 ( 623/ 470- 660/ 613)  63.4 E34-E28 S27-S17
     17 1055  498 (S29E03 L= 18)  1316    383        2 ( 925/ 398-1210/ 589)  20.9 E13-W08 S35-S23
     18 1673  519 (S36W49 L= 69)  1470    212        2 (1573/ 473-1765/ 563)   0.0 W38-W62 S38-S33
     19 1084  395 (S37E02 L= 18)   398     89        0 (1033/ 381-1129/ 408)   0.0 E06-W01 S38-S35
     20  802  277 (S45E29 L=351)  1772    247        3 ( 753/ 185- 862/ 355)  46.7 E37-E20 S54-S37
  

    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