Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  909 1855 (N47E31 L=196)   986    168        2 ( 878/1811- 935/1906) -51.3 E35-E26 N43-N53
      2 1238 1486 (N25W05 L=232)   771    179        0 (1200/1395-1284/1550)  80.5 W03-W07 N18-N30
      3  528 1427 (N10E38 L=188)   345    104        2 ( 494/1392- 561/1485)  80.5 E40-E37 N07-N13
      4 1550 1377 (N25W27 L=254)  1177    187        1 (1491/1271-1607/1465) -54.0 W22-W32 N18-N29
      5 1809 1433 (N36W52 L=279)  1102    207        1 (1751/1400-1858/1454)  14.0 W45-W58 N33-N39
      6  466 1422 (N09E43 L=184)   310     36        0 ( 445/1393- 486/1448)  76.0 E44-E41 N06-N10
      7  514 1345 (N05E37 L=190)   586    139        0 ( 462/1293- 570/1413)  63.4 E39-E34 N00-N09
      8  586 1066 (S11E27 L=200)  1537    423        2 ( 495/ 894- 657/1250)  79.7 E31-E24 S22-N00
      9 1822 1171 (N18W52 L=278)  1123    167        1 (1804/1085-1838/1250) -84.8 W49-W53 N13-N24
     10 1409 1139 (N07W21 L=247)   349    116        0 (1374/1098-1453/1200) -38.7 W18-W23 N04-N10
     11  202  976 (S20E58 L=169)  1767    316        1 ( 142/ 860- 257/1097)  59.0 E63-E53 S27-S12
     12  277  801 (S31E50 L=177)  1817    434        1 ( 177/ 693- 377/ 916)  36.9 E61-E40 S37-S22
     13 1484  730 (S15W34 L=261)  3413    775        2 (1112/ 662-1764/ 781)  19.6 W11-W57 S24-S08
     14  754  579 (S38E10 L=217)  2029    580        4 ( 534/ 504-1048/ 641)  25.1 E28-W09 S46-S29
  

    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